home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / SICL / data1.cab / sicl32 / vb / samples / misc / gpibdv.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-02  |  1.1 KB  |  52 lines
  1.  
  2. '  gpibdv.bas
  3. Sub Main ()
  4.    Dim dvm As Integer
  5.    Dim sw As Integer
  6.    Dim res As Double
  7.    Dim i As Integer
  8.    Dim argcount As Integer
  9.  
  10.    ' Open the multimete and switch sessions
  11.    dvm = iopen("hpib7,9,3")
  12.    sw = iopen("hpib7,9,14")
  13.    Call itimeout(dvm, 10000)
  14.    Call itimeout(sw, 10000)
  15.  
  16.    ' Set up trigger
  17.    argcount = ivprintf(sw, "TRIG:SOUR BUS" + Chr$(10)) 
  18.  
  19.    ' Set up scan list
  20.    argcount = ivprintf(sw, "SCAN (@100:103)" + Chr$(10)) 
  21.  
  22.    argcount = ivprintf(sw, "INIT" + Chr$(10)) 
  23.  
  24.    ' Display form1 and print voltage measurements
  25.    form1.Show
  26.  
  27.    For i = 1 To 4
  28.       ' Take a measurement
  29.       argcount = ivprintf(dvm, "MEAS:VOLT:DC?" + Chr$(10)) 
  30.  
  31.       ' Read the results
  32.       argcount = ivscanf(dvm, "%lf", res)
  33.  
  34.       ' Print the results
  35.       form1.Print "Result is " + Format(res)
  36.  
  37.       ' Trigger to close channel
  38.       argcount = ivprintf(sw, "TRIG" + Chr$(10)) 
  39.    Next i
  40.  
  41.    ' Close the voltmeter session
  42.    Call iclose(dvm)
  43.  
  44.    ' Close the switch session
  45.    Call iclose(sw)
  46.  
  47.    ' Tell SICL to cleanup for this task
  48.    Call siclcleanup
  49.  
  50. End Sub
  51.  
  52.